home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Habbo_Whac19512011262005.psc / codificar id.frm < prev    next >
Text File  |  2005-11-26  |  3KB  |  151 lines
  1. VERSION 5.00
  2. Begin VB.Form Form7 
  3.    Caption         =   "Form7"
  4.    ClientHeight    =   885
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   2415
  8.    LinkTopic       =   "Form7"
  9.    ScaleHeight     =   885
  10.    ScaleWidth      =   2415
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox txtID 
  13.       Alignment       =   2  'Center
  14.       Enabled         =   0   'False
  15.       Height          =   285
  16.       Left            =   120
  17.       TabIndex        =   1
  18.       Top             =   480
  19.       Width           =   2175
  20.    End
  21.    Begin VB.TextBox txtcodificada 
  22.       Alignment       =   2  'Center
  23.       Height          =   285
  24.       Left            =   120
  25.       TabIndex        =   0
  26.       Top             =   120
  27.       Width           =   2175
  28.    End
  29. End
  30. Attribute VB_Name = "Form7"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Public dec2letra As Integer
  36. Public numerodecimal As Integer
  37. Public nElemento As Integer
  38. Public texto As String
  39. Public decodificada As String
  40.  
  41. Public Sub decimalizar(Text As String)
  42. Dim TextStart As Single
  43.  
  44. TextStart = 1
  45.  
  46. Select Case (Mid(decodificada, TextStart, 1))
  47. Case "A"
  48. setcapt "65"
  49. Case "B"
  50. setcapt "66"
  51. Case "C"
  52. setcapt "67"
  53. Case "D"
  54. setcapt "68"
  55. Case "E"
  56. setcapt "69"
  57. Case "F"
  58. setcapt "70"
  59. Case "G"
  60. setcapt "71"
  61. Case "H"
  62. setcapt "72"
  63. Case "I"
  64. setcapt "73"
  65. Case "J"
  66. setcapt "74"
  67. Case "K"
  68. setcapt "75"
  69. Case "L"
  70. setcapt "76"
  71. Case "M"
  72. setcapt "77"
  73. Case "N"
  74. setcapt "78"
  75. Case "O"
  76. setcapt "79"
  77. Case "P"
  78. setcapt "80"
  79. Case "Q"
  80. setcapt "81"
  81. Case "R"
  82. setcapt "82"
  83. Case "S"
  84. setcapt "83"
  85. Case "T"
  86. setcapt "84"
  87. Case "U"
  88. setcapt "85"
  89. Case "V"
  90. setcapt "86"
  91. Case "W"
  92. setcapt "87"
  93. Case "X"
  94. setcapt "88"
  95. Case "Y"
  96. setcapt "89"
  97. Case "Z"
  98. setcapt "90"
  99. End Select
  100. End Sub
  101. Sub setcapt(Text As String)
  102. numerodecimal = Text
  103. End Sub
  104.  
  105. Public Sub EmpezarCodificacion()
  106. If txtcodificada.Text = "H" Then
  107. txtID.Text = "0"
  108. ElseIf txtcodificada.Text = "I" Then
  109. txtID.Text = "1"
  110. ElseIf txtcodificada.Text = "J" Then
  111. txtID.Text = "2"
  112. ElseIf txtcodificada.Text = "K" Then
  113. txtID.Text = "3"
  114. Else
  115. decodificada = txtcodificada.Text
  116.  
  117. texto = Left$(decodificada, Len(decodificada) - 1)
  118.  
  119. If Not texto = "" Then
  120. Call sacarelemento(texto)
  121. End If
  122.  
  123. decodificada = Replace(decodificada, texto, "")
  124. Call decimalizar(decodificada)
  125. dec2letra = numerodecimal
  126. texto = dec2letra - 64
  127. texto = texto * 4 + nElemento
  128.  
  129. txtID.Text = texto
  130. End If
  131. End Sub
  132. Public Sub sacarelemento(Elemento As String)
  133. Dim TextStart As Single
  134.  
  135. TextStart = 1
  136.  
  137. Select Case (Mid(txtcodificada.Text, TextStart, 1))
  138. Case "P"
  139. elem "0"
  140. Case "Q"
  141. elem "1"
  142. Case "R"
  143. elem "2"
  144. Case "S"
  145. elem "3"
  146. End Select
  147. End Sub
  148. Sub elem(Elemento As String)
  149. nElemento = Elemento
  150. End Sub
  151.